home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / mleCommon.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-10-24  |  577 b   |  37 lines
  1. unit mleCommon;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, DBTables;
  7.  
  8. type
  9.   TInfoPacket = class
  10.   private
  11.     FDatabase: TDatabase;
  12.     FVariables: TStrings;
  13.   public
  14.     constructor Create;
  15.     destructor Destroy; override;
  16.     property Database: TDatabase read FDatabase write FDatabase;
  17.     property Variables: TStrings read FVariables;
  18.   end;
  19.  
  20. implementation
  21.  
  22. { TInfoPacket }
  23.  
  24. constructor TInfoPacket.Create;
  25. begin
  26.   inherited;
  27.   FVariables := TStringList.Create;
  28. end;
  29.  
  30. destructor TInfoPacket.Destroy;
  31. begin
  32.   FVariables.Free;
  33.   inherited;
  34. end;
  35.  
  36. end.
  37.